home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 5 / Eagles_Nest_Mac_Collection_Disc_5.TOAST / Science & Religion / Culture20#5 / Culture 5 of 9 / ©1988-91 CRI Inc. / stack_-1.xml < prev    next >
Extensible Markup Language  |  1992-08-18  |  22KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>3027</cardID>
  8.     <listID>4632</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>96</width>
  14.         <height>160</height>
  15.     </cardSize>
  16.     <script>-- T H I S  S T A C K  I S  P R O T E C T E D  B Y  F E D E R A L  C O P Y R I G H T  L A W S-- A N Y  U N A U T H O R I Z E D  U S E  (OR MODIFICATION)  I S  S T R I C T L Y-- P     R     O     H      I      B      I     T     E       D--------------------------------------------------------------------------------------------------- This software has been licensed to CRI under 3/19/90 AI/CRI Agreement-- HyperTag‚Ñ¢, Original Graphic Design, HyperTalk Programming¬¨-- and Stack Design ¬© 1988-1992 Applied Imagination Inc.  All Rights Reserved-- Implemented by Thomas Tafuto - AI/Applied Imagination, Inc.-- 64 Morton Street ‚Ä¢ 1B  New York, NY  10014  TELE:212 645.7199 - FAX:212 645.7585 - LINK:  AI--------------------------------------------------------------------------------------------------- This Stack Incorporates a third party commercial XFCN-- PopMenu XFCN ¬© 1988 Appropriate Technology. All rights reserved.-- PopMenu XFCN documentation ¬© 1988 Kirk Scott. All rights reserved.---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------on doMenu mif m="Find..." then NavigationSearchpass doMenuend doMenuon openStackglobal masterLinkList,CultureStacks,externalLinkList,displayput "" into masterLinkListput "" into externalLinkListput "Culture¬Æ OverView,Cultural Almanac,Biblical History,Greece,Rome,Middle Ages  (400-1400),Renaissance  (1400-1600),Baroque  (1600-1750),Classic  (1750-1803),Romantic  (1803-1912),20th Century  (1912-1991),Discipline MacroView,Notes" into CultureStacksif short name of this stack is in CultureStacks thenset textArrows to falseif the screenRect="0,0,512,342" then put "small" into Displayelse put "large" into Displayif Display="large" then set loc of cd window to "48,79"if "Period Navigation" is not in the windowsthen palette "Period Navigation","0,-42"if "Culture Tools" is not in the windowsthen palette "Culture Tools", "272,-42"if "Standard Navigation" is not in the windowsthen palette "Standard Navigation", "447,-42"if Display="small" thenset loc of cd window to "0,0"set loc of window "Period Navigation" to "1,0"set loc of window "Culture Tools" to "272,0"set loc of window "Standard Navigation" to "447,0"end ifend ifpass openStackend openStackon returnKeyglobal gFindWhatif gFindWhat‚â†"" then find whole gFindWhatelse pass returnKeyend returnKeyon convertLinksglobal masterLinkList,externalLinkList,CultureStacks--repeat with s=1 to the number of items in CultureStacks--go cd "HyperTags" of stack item s of CultureStacksput word 1 of short name of this stack&&"HyperTag‚Ñ¢" into fileNameput "" into MasterLinkList --the master specification--put "0" into totalLength --the length of the specification--open file fileNamerepeatread from file fileName for 16384put it after MasterLinkListif length(MasterLinkList) = totalLength then exit repeatelse put length(MasterLinkList) into totalLengthend repeatclose file fileName--put word 1 of short name of this stack&&"ExternalLinks" into fileName--put "" into externalLinkList--put "0" into totalLength --the length of the specification--put "Loading External links for stack:"&&quote&short name of this stack&quote--open file fileName--repeat--read from file fileName for 16384--put it after externalLinkList--if length(externalLinkList) = totalLength then exit repeat--else put length(externalLinkList) into totalLength--end repeat-- close file fileName--hide msgsetFldsput masterLinkList into ConvertListrepeat with i=1 to (the number of lines in ConvertList)put "1" into IndexLetterset the cursor to busyif line i of ConvertList="" thendelete line i of ConvertListnext repeatend ifif char 1 of item 2 of line i of ConvertList is not in "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,1,2,3,4,5,6,7,8,9"then put "1" into IndexLetterelse put char 1 of item 2 of line i of ConvertList into IndexLetterput line i of ConvertListdelete last item of line i of ConvertListif the number of chars in fld ("Index-"&IndexLetter)<30000 thenput line i of ConvertList&return after fld ("Index-"&IndexLetter)else put line i of ConvertList&return after fld ("Index-5")end repeat--go next--go cd "Externals" of stack item s of CultureStacks-- setFlds--put externalLinkList into ConvertList--repeat with i=1 to (the number of lines in ConvertList)-- put "1" into IndexLetter--set the cursor to busy--if line i of ConvertList="" then-- delete line i of ConvertList-- next repeat-- end if-- if char 1 of line i of ConvertList is not in "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,1,2,3,4,5,6,7,8,9"-- then put "1" into IndexLetter-- else put char 1 of line i of ConvertList into IndexLetter-- put line i of ConvertList-- if the number of chars in fld ("Index-"&IndexLetter)<30000 then--   put line i of ConvertList&return after fld ("Index-"&IndexLetter)-- else put line i of ConvertList&return after fld ("Index-5")--end repeat--LoadLinkFlds--end repeatend convertLinkson LoadLinkFldsglobal masterLinkList,externalLinkListrepeat with f=1 to 36set cursor to busyif fld f of cd HyperTags‚â†"" then put fld f of cd HyperTags after masterLinkListend repeatrepeat with f=1 to 36set cursor to busyif fld f of cd Externals‚â†"" then put fld f of cd Externals after externalLinkListend repeatend LoadLinkFldson setFldsrepeat with f=1 to 36set cursor to busyset rect of fld f to rect of fld 10set textStyle of fld f to textStyle of fld 10set textFont of fld f to textFont of fld 10set textSize of fld f to textSize of fld 10set textHeight of fld f to "10"put "" into fld fend repeatend setFldson IndexSetUpglobal CurrentIndexrepeat with f=1 to 35hide bg fld Fset the hilite of bg btn f to falseend repeatshow bg fld "Index-A"set the hilite of bg btn "A" to trueput "A" into CurrentIndexend IndexSetUpOn SwitchDex Targ,TargID,TargNameglobal CurrentIndexset hilite of targ to trueif not the visible of fld ("Index-"&targName) thenlock screenset the hilite of bg btn CurrentIndex to falsehide bg fld ("Index-"&CurrentIndex)set the visible of fld ("Index-"&targName) to trueset the scroll of fld ("Index-"&targName) to 0put targName into CurrentIndexset the hilite of targ to trueend ifunlock screen with visual dissolveend SwitchDexon BtnToCdLinkvisual zoom open fastgo cd short name of targetif the result‚â†"" then answer "Currently, there is no card:"&return&quote&short name of target&quoteend BtnToCdLinkon AddThisToMasterList--48758|Baroque  (1600-1750)|cantata,push cdput selection into LinkTextToput word 3 of the id of this cd into Cdidput short name of this stack into LinkedStackgo stack HyperTagLinkerask "Type (or paste) text to link to your last selection‚Ķ"put it into TextLinkput TextLink&","&Cdid&"|"&LinkedStack&"|"&LinkTextTo&","&return after cd fld 1pop cdend AddThisToMasterListon videoPopUpglobal externalLinkListput script of target into listdelete line 1 to 3 of listput (the number of lines in list)/2 into PopHerechangeCurs 7get PopMenu (bottom of target+1,left of target+1,PopHere,list)if it = empty then answer "Hold mouse button down for a menu of images‚Ķ"elseif item 4 of it‚â†"-" and item 4 of it‚â†"" then--if item 3 of it="1" then answer "This is the artist's name‚Ķ"--elseif externalLinkList="" then LoadLinkFldsput item 4 of it into Imageget find(externalLinkList,Image,"item","exact")put item 1 of it into returnLineput item 2 of line returnLine of externalLinkList into theStartFrameif the number of items in line returnLine of externalLinkList="3" thenput item 3 of line returnLine of externalLinkList into theEndFramevideo play,theStartFrame,theEndFrameelse video search,theStartFrame -- Uncomment this line for disc linkput theStartFrame&&theEndFrameend ifend ifend videoPopUpon CDPopUpglobal externalLinkListput script of target into listdelete line 1 to 3 of listput (the number of lines in list)/2 into PopHerechangeCurs 7get PopMenu (bottom of target+1,left of target+1,PopHere,list)if it = empty then answer "Hold mouse button down for a menu of images‚Ķ"elseif item 4 of it‚â†"-" and item 4 of it‚â†"" then--if item 3 of it="1" then answer "This is the artist's name‚Ķ"--elseif externalLinkList="" then LoadLinkFldsput item 4 of it into Titleget find(externalLinkList,Title,"item","exact")put item 1 of it into returnLineput item 2 of line returnLine of externalLinkList into theTrackif the number of items in line returnLine of externalLinkList="3" thenput item 3 of line returnLine of externalLinkList into theEndTrackCDPlayTrack theTrack,theEndTrackelse CDPlayTrack theTrack  -- Uncomment this line for disc link--CDPlayTrack trackNumber <,trackNumber>end ifend ifend CDPopUpon DoNewCardput short name of this cd into PrevCardNameif last char of PrevCardName is in "0,1,2,3,4,5,6,7,8,9" thenadd 1 to last char of PrevCardNameend iftype "N" with commandKeyask "Type in name for this card‚Ķ" with PrevCardNameset name of this cd to itput it into fld "Card Name"end DonewCardon PopNav t,l,menuNamechangeCurs 7get PopMenu (t,l,0,"|r"&menuName)if menuName="OverView" then put "Culture¬Æ OverView" into targStackelse if menuName="Intro" then put "Culture¬Æ OverView" into targStackelse if menuName="Biblical" then put "Biblical History" into targStackelse if menuName="Greece" then put "Greece" into targStackelse if menuName="Rome" then put "Rome" into targStackelse if menuName="MiddleAges" then put "Middle Ages  (400-1400)" into targStackelse if menuName="Renaissance" then put "Renaissance  (1400-1600)" into targStackelse if menuName="Baroque" then put "Baroque  (1600-1750)" into targStackelse if menuName="Classic" then put "Classic  (1750-1803)" into targStackelse if menuName="Romantic" then put "Romantic  (1803-1912)" into targStackelse if menuName="Century" then put "20th Century  (1912-1991)" into targStackif it = empty thenvisual zoom outif menuName="Intro" then go cd Introduction of stack targStackelsego cd 1 of stack targStackvisual dissolvego cd targStack of stack targStackend ifelseif item 4 of it‚â†"-" and item 4 of it‚â†"" thenput item 4 of it into targCardif targStack is not in "Biblical History,Greece,Rome,Culture¬Æ OverView"then delete last word of targCardvisual zoom opengo cd targCard of stack targStackend ifend ifset hilitedbutton of window "Period Navigation" to falseend PopNavon setRectsrepeat with i=1 to the number of bg btnsif "externalLink" is in the script of bg btn ithen set the style of bg btn i to transparentend repeatend setRectson externalLinkanswer "Cool‚Ķ"end externalLinkon ShiftBtnLocsrepeat with i=1 to the number of cd btnsput the loc of cd btn i into theNewLocsubtract 51 from item 1 of theNewLocset loc of cd btn i to theNewLocend repeatend ShiftBtnLocs--on videoMenu theDirection,t,lput "Step,Timed Step‚Ķ,-|(,Play,Slowest,Fast,-|(,Scan" into listget PopMenu (t,l,0,list)if it = empty then doVideo step,theDirection,trueelseif item 4 of it‚â†"-" or item 4 of it‚â†"" thenif item 4 of it="Timed Step‚Ķ" thenask "Please type in the interval at which you would like to step through the frames in this videodisc‚Ķ  (in seconds)" with "5"if it ‚â†"" thenput it into Intervalrepeat until the mouseClickput "Stepping through videodisc w/"&Interval&&"second pauses, (Click to stop‚Ķ)‚Ķ"go nextwait interval secondsend repeathide msgend ifelse doVideo (item 4 of it),theDirection,trueend ifend ifend videoMenu--on doVideo what,direction,linkif what‚â†"Stop" then push cdvideo what,directionend doVideoon openCardglobal CultureStacks,displayif short name of this stack is in CultureStacks thenif the number of this cd="1" and display="small" then hidePaletteselse showPalettesif "Period Navigation" is not in the windows then openStackif "Culture Tools" is not in the windows then openStackif "Standard Navigation" is not in the windows then openStackif short name of this cd is not in fld "Card Name"then put short name of this cd into fld "Card Name"hide fld "Card Name"end ifif there is a bg fld "SubTopic" and  "." is not in short name of this cd then select text of fld "SubTopic"if short name of this bg="Essays" and¬¨short name of this stack is not in "Culture¬Æ OverView,Greece, Rome, Biblical History" then --set name of bg btn id 183 to short name of this cdif bg fld 2‚â†"" thenput bg fld 2 into Holderrepeat until "/" is not in holderget offset ("/",holder)if it‚â†0 then delete char 1 to it of holderend repeatset icon of bg btn id 183 to Holderend ifif "General Essay" is in bg fld "SubTopic" then hide bg btn id 182else show bg btn id 182end ifpass openCardend openCardon hidePalettesif "Period Navigation" is in the windows then hide window "Period Navigation"if "Culture Tools" is in the windows then hide window "Culture Tools"if "Standard Navigation" is in the windows then hide window "Standard Navigation"end hidePaletteson showPalettesif "Period Navigation" is in the windows then show window "Period Navigation"if "Culture Tools" is in the windows then show window "Culture Tools"if "Standard Navigation" is in the windows then show window "Standard Navigation"end showPaletteson CompactAllStacksglobal CultureStacks,performingSearchrepeat with i=1 to the number of items in CultureStacksset the cursor to busygo stack (item i of CultureStacks)protectput "Now Compacting stack:"&&short name of this stackdoMenu "Compact Stack"end repeatgo homeanswer "All BCAT Stacks have been compacted (optimized)."end CompactAllStackson Navigateput script of target into listdelete line 1 to 3 of listchangeCurs 7get PopMenu (bottom of target+1,left of target+1,0,list)if it = empty thenput short name of target into targStackset the hilite of target to falsevisual zoom outgo cd 1 of stack targStackwait 30 ticksvisual dissolvego cd targStack of stack targStackelseif item 4 of it = "-" or item 4 of it = "" then exit Navigateelseset the hilite of target to falseput short name of target into targStackput item 4 of it into targCardif short name of target is not in "Biblical History,Greece,Rome" then delete last word of targCardvisual zoom opengo cd targCard of stack targStackend ifend ifend Navigateon Essayput script of target into listdelete line 1 to 3 of listget PopMenu (bottom of target+1,left of target+1,0,list)if it=empty thenanswer "Hold the mouse down for a list of essays‚Ķ"exit essayend ifif item 4 of it = "-" or item 4 of it = "" then exit Essayput item 4 of it into targCardvisual zoom open very fastgo cd targCardend Essayon MacroViewput script of target into listdelete line 1 to 3 of listchangeCurs 7get PopMenu (bottom of target+1,left of target,0,list)if it = empty thenvisual zoom output short name of target into targCardgo cd targCard of stack "Culture¬Æ OverView"if the result is not empty thenlock screenput targCard into tempanswer "No card exists for:" && targCard with Cancel or Createif it = "Create" thenpush cardgo last cd of bg "Essays"domenu New Cardset name of this cd to tempput short name of target into bg fld 1unlock screen with visual iris openend ifend ifelseif item 4 of it = "-" or¬¨item 4 of it = "" or¬¨item 4 of it = "Empty" then exit MacroViewelseif item 2 of it‚â•"A" thenput item 4 of it into targCardvisual zoom open very fastgo cd targCard of stack "Culture¬Æ OverView"if the result is not empty thenlock screenput targCard into tempanswer "No card exists for:" && targCard with Cancel or Createif it = "Create" thenpush cardgo last cd of bg "Essays"domenu New Cardset name of this cd to tempput targCard into bg fld 1unlock screen with visual iris openend ifend ifend ifend ifend ifend MacroViewon PopAlmanac t,l,menuNamechangeCurs 7get PopMenu (t,l,0,"|r"&menuName)if it = empty thenvisual zoom outgo stack "Cultural Almanac"else if item 4 of it‚â†"-" and item 4 of it‚â†"" thenput item 4 of it into TheMonthask "Please type in the day you want to find‚Ķ" with "15"put it into theDayrepeat with i=1 to number of chars in theDayif char i of theDay is not in "0123456789" thentype "Not a valid entry, use numerals only‚Ķ"end ifend repeatvisual dissolvego cd (theDay&"  "&theMonth) of stack "Cultural Almanac"end ifset hilitedButton of window "Period Navigation" to falseend PopAlmanacon closeStackif the freeSize of me > 50480 then doMenu Compact Stackend closeStackon closebackground---set icon of bg btn BookButton to BookButton--if the short name of this bg="Essays" then-- if the visible of bg btn "Return" then hide bg btn "Return"--end ifend closebackgroundon EnterKeyglobal CulturePathif the CommandKey is down thenget offset(short name of this cd,CulturePath)if it=0then put the short name of this cd&" ["&short name of this stack&","&return after CulturePathelse answer "This card is already in the loaded Culture Path‚Ķ"exit EnterKeyend ifCompleteLinkend EnterKeyon CompletePathLinkglobal LinkStat,LinkFromCd,LinkFromStak,LinkToCd,LinkToStakif LinkStat‚â†"true" then exit CompleteLinkput short name of this cd into LinkToCdput short name of this stack into LinkToStakvisual zoom ingo cd LinkFromCd of stack LinkFromStakput LinkToCd&" ["&LinkToStak&","&return into newScriptget script of this cdset script of this cd to it&newScriptif the script of this cd‚â†"" then set hilite of bg btn Linker to trueput "" into LinkStatend CompletePathLinkon Levelsset cursor to 4if short name of this stack="Biblical History" thenvisual zoom ingo cd (short name of target)else if short name of target‚â†short name of this cd thenif short name of this bg="Essays" and the id of the target=182 thenput bg fld 1 into targCarddelete last word of targCardelse put short name of target into targCardvisual zoom ingo cd targCardelsebeepanswer "This button represents the current card:"&return&short name of this cdend ifend Levelson Notesset userModify to falseset cursor to 4if not the visible of bg fld id 122 thenlock screenhide bg btn covershow bg btn CloseBoxshow bg btn "Do Reports‚Ķ"hide card picturerepeat with i=1 to number of bg btnsif "blackout" is in short name of bg btn i then show bg btn iend repeatrepeat with i=1 to the number of card buttonshide cd btn iend repeatshow bg fld id 122unlock screen with visual zoom open very fastset userModify to trueexit Notesend ifif the visible of bg fld id 122 thenset the scroll of bg fld id 122 to 0lock screenshow cd picturerepeat with i=1 to the number of card buttonsshow cd btn iend repeatrepeat with i=1 to number of bg btnsif "blackout" is in short name of bg btn i then hide bg btn iend repeatif bg fld id 122 ‚â†"" then set the hilite of target to trueshow bg btn coverhide bg btn CloseBoxhide bg fld id 122hide bg btn "Do Reports‚Ķ"unlock screen with visual zoom close very fastend ifset userModify to trueend noteson essayLinkageset userModify to falseset cursor to 4if not the visible of bg fld id 183 thenlock screenhide cd picturerepeat with i=1 to the number of card buttonshide cd btn iend repeatshow bg fld id 183unlock screen with visual zoom open very fastset hilite of target to trueset userModify to trueexit essayLinkageend ifif the visible of bg fld id 183 thenset the scroll of bg fld id 183 to 0lock screenif not the visible of bg fld id 122 thenshow cd picturerepeat with i=1 to the number of card buttonsshow cd btn iend repeatend ifhide bg fld id 183set the hilite of target to trueunlock screen with visual zoom close very fastend ifset userModify to trueend essayLinkageon EssayLinkvisual zoom outgo cd short name of targetend essayLinkon ExitCultureQuitdoMenu "Quit HyperCard"end ExitCultureQuiton ExitCultureHomevisual iris closego homeend ExitCultureHome--function lineClickedreturn ((the mouseV - item 2 of the rect of the target) ¬¨div the textHeight of the target) + 1end lineClicked--Function Clicklinereturn (trunc(((scroll of the target) ¬¨+ (item two of the clickloc) ¬¨- (item two of the rect of the target)) ¬¨div the textheight of the target) + one)End Clicklineon GridLinkif the optionKey is down then--answer "Chris, are you sure you want to delete this button?" with "Cancel" or "OK"--if it is "OK" thenchoose button toolclick at the loc of targetdoMenu"Clear Button"choose browse tool-- end ifexit GridLinkend ifput bg fld CID&short name of target into targCardvisual zoom outgo cd targCardif the result is not empty thenlock screenput bg fld 1 into temput targCard into tempanswer "No card exists for:" && targCard with Cancel or Createif it = "Create" thenput number of this cd into JumpBackgo last cddomenu New Cardset name of this cd to tempput tem into bg fld 1put short name of target into bg fld 2unlock screen with visual iris opengo cd jumpBackend ifend ifend GridLinkon protectrepeat with i=1 to the number of cdsset cantDelete of cd i to trueend repeatend protect</script>
  17.     <background id="2778" file="background_2778.xml" name="Scripts To Run Culture" />
  18.     <card id="3027" file="card_3027.xml" marked="false" name="¬©1988-91 AI Inc." owner="2778" />
  19. </stack>
  20.